home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Misc / FLM / Benchmark / standard_ram1.rexx < prev    next >
OS/2 REXX Batch file  |  2000-01-01  |  1KB  |  86 lines
  1. /*
  2.    ********************************
  3.    *** FLM benchmark script  #1 ***
  4.    ********************************
  5. */
  6.  
  7. initiation=run "/FLM"
  8. konfig="FLM:Benchmark/standard_ram.config"
  9.  
  10. zeichenfolge1='Das ist der 1. FLM Geschwindigkeits Test.'
  11. zeichenfolge2='This is the 1. FLM speed test.'
  12.  
  13. Options Results
  14. IF ~show('P','FLM') THEN DO
  15.     ADDRESS COMMAND initiation
  16.     ADDRESS COMMAND "SYS:RexxC/WaitForPort FLM"
  17. END
  18.  
  19. say "Testing benchmark script #1 !!!"
  20.  
  21. address FLM
  22.  
  23. LOAD konfig
  24.  
  25. VERSION
  26.  
  27. say RESULT
  28.  
  29. t1=Time(Seconds)
  30.  
  31. do m=1 to 3 /* für jeden Suchmodus */
  32.  IF m=1 THEN SETMODE "=="
  33.  IF m=2 THEN SETMODE "IN"
  34.  IF m=3 THEN SETMODE "#?"
  35.  
  36. do k=1 to 5 /* Pseudo-Endlosschleife */
  37.  
  38. setlanguage deutsch
  39.  
  40. do i=1 to words(zeichenfolge1) /* tue solange Wörter im String */
  41.  wort = word(zeichenfolge1,i) /* 1., 2., 3. ... Wort */
  42.  lookword wort
  43.  found  /* gefunden ? */
  44.  if result = 0 then
  45.   do
  46.     wordanz
  47.     anz=RESULT
  48.     do j=1 to anz
  49.         takeword j
  50.     end
  51.   end
  52.  else
  53.   do
  54.     takefound
  55.   end
  56. end
  57.  
  58. setlanguage englisch
  59.  
  60. do i=1 to words(zeichenfolge2) /* do as long as there are words in string */
  61.  wort = word(zeichenfolge2,i) /* 1., 2., 3. ... word */
  62.  lookword wort
  63.  found  /* Found ? */
  64.  if result = 0 then
  65.   do
  66.     wordanz
  67.     anz=RESULT
  68.     do j=1 to anz
  69.         takeword j
  70.     end
  71.   end
  72.  else
  73.   do
  74.     takefound
  75.   end
  76. end
  77.  
  78. end
  79. end
  80.  
  81. t2=Time(Seconds)
  82.  
  83. say t2-t1 "seconds were needed."
  84.  
  85. exit /* Script beenden*/
  86.